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S-C Macro Assembler Version 1.1 


That's right, Version 1.1! I've added all the most-requested 
new features, corrected those few lingering problems, and it's 
almost ready. Look inside for more details. 


A New Screen-Oriented Editor 


Several people have asked about a screen-oriented editor for 
the S-C Macro Assembler. Well, Mike Laumer has come up with 
one for you. It runs with the Language Card version of the 
Macro Assembler, in the unused bank. I still prefer a line 
editor, but Bill is rapidly falling in love with thé new screen 
editor. Now everyone has a choice! See Mike's ad inside. 


65C02 


Many of you have expressed an interest in the new Rockwell 
R65CO02 microprocessor. Well, I still haven't* heard any more 
than I mentioned a couple of months ago. We're as eager as you 

are to get a sample. We'll have a detailed report as soon as 
we know more. ' 


All About PTRGET & GETARYPT. eeee9e#eose08eeeess8 88 @ Bob Sander-Ceder lof 


Both Leo Reich and E.’ Melioli have asked for some clarification 
on how to pass array variables between Applesoft programs and 
assembly language programs. I hope this little article will be 
of some help to then. 


The Variable Tables: 

We need to start with a look at the structure of the Applesoft 
variable tables. There are two variable tables: one for 
simple variables, and the other for arrays. (You might turn to 
page 137 of the Applesoft Reference Manual now.) Entries in 
these tables include the variable names; some codes to 
distinguish real, integer, and string variables; and the value 


if numeric. String variables include the length of the string 
and the address of the string, but not the string itself. 

The address of the start of the simple variable table is kept 
in $69,$6A. The next pair, $6B and $6C, hold the address of 
the end of the simple variable table plus one. This happens to 
also be the address of the beginning of the array variable 
table. The address of the end of the arrays plus one is kept 
in $6D,$6E. The actual string values may be inside the program 
itself, in the case of “string” values; or in the space between 
the top of the array variable table and HIMEM. 


Here is a picture, with a few more pointers thrown in for good 
measure: 


(73.74) --> HIMEM 
<string values> 
(6F.70) --> String Bottom 
<free space> 
(6D.6E) --> Free Memory Bottom 
<arrays> 
(6B.6C) --> Array Variable Bottom 
<variables> 
(69.6A) --> Simple Variable Bottom 
<program> 
(67.68) --> Program Bottom 
Inside an Array: 
Let's look a little closer at the array variable space. Each 
acray in there consists of a header part and a data part. The 


header part contains the name, flags to indicate real-integer- 
String, the offset to the next array, the number of dimensions, 
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S-C Macro Assembler (the best there 18!) ....cccccrccccccccccscsescee $80.00 
Upgrade from Version 4.0 tO MACRO... cccccvccvccccccsccccccccesecsee 921 e50 
Source code Of Version 4.0 On diSk..cccccccccccccccccccssccccccces es Ie 00 
Fully commented, easy to understand and modify to your own tastes. 
S-C Macro Assembler /// 
Preliminary version. 


ere c ccc c cence rece cece cece seccccscccccc ce SL00.00 


Call or write for details. 


S-C Word PLOCESSOLS ccc cccccccccccec ccc vecceesccece rece ccc ccc ccccc cc eo 990200 
As is, with fully commented source code. Needs S-C Macro Assembler. 


Applesoft Source Code on DisSk..cccccccccccccccccccvccesevccccscees s $90.00 
Very heavily commented. Requires Applesoft and S-C Assembler. 
ES-CAPE: Extended S-C Applesoft Program EditoOr......ccscvcccecccee es $60.00 
AAL Quarterly DiSkS.ccccccccccccccccccvcccccccccccccccccccces slacn $15.00 
Each disk contains all the source code from three issues of "Apple 
Assembly Line", to save you lots of typing and testing time. 
QD#1l: Oct-Dec 1980 QD#2: Jan-Mar 1981 QD#3: Apr-Jun 1981 
QD#4: Jul-Sep 1981 QD#5: Oct-Dec 1981 QD#6: Jan-Mar 1982 
QD#7: Apr-Jun 1982 QD#8: Jul-Sep 1982 QD#9: Oct-Dec 1982 
QD#10: Jan-Mar 1983 


Double Precision Floating Point for AppleSOEt....cccccccccvccceseee 990.00 
Provides 2l-digit precision for Applesoft programs. 
Includes sample Applesoft subroutines for standard math functions. 


FLASH! Integer BASIC Compiler (Laumer Research) ...ccccccccccvccece $79.00 
Source Code for FLASH! Runtime Package... .ccccccccccccescevcccscccsee S390 00 


Super Disk Copy III (Sensible Software).........e..-- (reg. $30.00) $27.00 
Amper-Magic (Anthro-Digital) ...ccccccccccccccccccese (rEg. $75.00) $67.50 
Amper-Magic Volume 2 (Anthro-Digital) .....cccccccecee (LEQ. $35.00) $30.00 
Quick-Trace (Anthro-Digital) ...cccccccccccccccccccce (LOG. $50.00) $45.00 


Cross~Reference and Dis-Assembler (Rak~Ware) cc ccccccccccccccc ccc 0 0 945200 
The Incredible JACK lic ccccccvccccccccccccccccccccces (LEG. $129.00) $99.00 


Blank Diskettes (with hub ringS).......cccceeeee- package Of 20 for $50.00 
Small 3-ring binder with 10 vinyl disk pages and disks.......22+2+-$36.00 
Vinyl disk pages, 6"x8.5", hold one disk each.....cceccceeeeelL0 for $6.00 
Reload your own NEC PC-8023 ribbon cartridges...........each ribbon $5.00 
Reload your own NEC Spinwriter Multi-Strike Film cartridges....each $2.50 
Diskette Mailing Protectors. ..crccsccccccccccccceceel0~99: 40 cents each 

100 or more: 25 cents each 


ZIF Game Socket Extender @eeeeeeeeoessensvseeeseeeaeeeseeeeeeeeeeneseonsveeeoee eo @ $20 e 00 

Ashby Shift-Key MOG. cccccccccccccc cc cece ccc ccc cc ccc ccc ccc ccccc cee 0c 915200 

Lower -Case Display Encoder ROM eeeoeoeeeeeoeseeeveeseseeeeeseeeeeeeeeseeeeesee 0 @ $25 e 00 
Only Revision level 7 or later Apples. 


Books, BookS, BOOKS...ccccccccccccccvcccecese COMpare OUr discount prices! 


“Enhancing Your Apple II, vol. 1", Lancaster........- ($15.95) $15.00 
“Incredible Secret Money Machine", Lancaster........-- ($7.95) $7.50 
"Micro Cookbook, vol. 1", LancaSter....cccccvecscccse ($15.95) $15.00 
"Beneath Apple DOS", Worth & Lechner.....cccccccceces (919.95) $18.00 
“Bag of Tricks", Worth & Lechner, with diskette......($39.95) $36.00 
“Apple Graphics & Arcade Game Design", Stanton.......($19.95) $18.00 
"Assembly Lines: The Book", Roger Wagner...s.cccccecce ($19.95) $18.00 
"What's Where in the Apple", Second Edition.......... ($24.95) $23.00 
“What's Where Guide" (updates first edition) ........e- ($9.95) $9.00 
"6502 Assembly Language Programming", Leventhal...... ($16.99) $16.00 
"6502 Subroutines", Leventhal..wccccccccccccccsesecece ($12.99) $12.00 
"MICRO on the Apple--1", includes diskette.......-..- ($24.95) $23.00 
"MICRO on the Apple--2", includes diskette........see- ($24.95) $23.00 
“MICRO on the Apple--3", includes diskette........... ($24.95) $23.00 


Add $1 per book for US postage. 


**x* S-C SOFTWARE, P. O. BOX 280300, Dallas, TX 75228 *** 
ett : (214) 324-2050 ’ wat 
*** We take Master Charge, VISA and American Express *** 


Foreign orderg add postage needed. 
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and each dimension. The data part contains all the numeric 
values for real or integer arrays, and all the string 
length-address pairs for string arrays. 


Here is a picture of the header part: 


Bytes Contents 


0,1 Name of Array 
2,3 Offset 


4 # of dimensions 
5,6 last dimension 
x,y first dimension 


The sign bits in each byte of the name combine to tell what 
type of array variable this is. If both bytes are positive, it 
is a real array; if both are negative, it is integer. Contrary 
to what it says on page 137 of the Applesoft manual, if the lst 
byte is positive and the 2nd byte negative it is a string 
array. The manual has it backwards. 


The value in the offset can be added to the address of the 
first byte of the header to give the address of the first byte 
of the header of the next array (or the end of arrays if there 
are no more). 


The number of dimensions is one byte, which obviously means no 
more than 255 dimensions per array. Oh well! In my sample 
below I assume that no more than 120 dimensions have been 
declared. If you try to declare more than that, you will see 
how hard it is. 


The dimensions are stored in backward order, last dimension 
first. Why? Why not? It has to do with the order they are 
used in calculating position for an individual element. Each 
dimension is also one larger than you declare in the DIM 
statement, because subscripts start at 0. 


The data part of an array consists of the elements ordered so 
that the first subscript changes fastest. That is, elément 
X(2,10) directly follows element X(1,10) in memory. Integer 
array elements are two bytes each, with the high byte first. 
Note: this is just about the only place in all the 6502 
kingdom where you will find highbytes first on 16-bit values! 


Real array elements take five bytes each: one byte for 
exponent, and four for mantissa. String array elements take 
three bytes each: one for length of the string, and two for 
the address of the string. Note: the string array elements DO 
NOT hold the string data, but only the address and length of 
that data! 


Getting to the Point: 
There is a powerful and much-used subroutine in the Applesoft 


ROMs which will find a particular variable in the tables. It 
is called PTRGET, and starts at SDFE3. It is too complicated 
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to fully explain here, but here is what it does: 


1. Reads the variable name from the program text. 

2. Determines whether the variable is a simple one or an 
array. 

3. Searches the appropriate table for the name. 

4. If the name is not found, create a variable of the 
approriate type (simple or array; integer, real, or 
string). 

5. Return with the address of the variable in Y,A 
(high-byte in the Y-register, low-byte in the 
A-register) and also in $83,84. 


That is usually what happens. Actually there are several 
different entry points and two control bytes which modify 
PTRGET's behavior depending on the caller's whims. DIMFLG 
($10) is set non-zero when called by the DIM-statement 
processor, and is otherwise cleared to zero. SUBFLG ($14) has 
four different states: 


$00 -- normal value 

$40 -- when called by GTARYPT 

$80 -- when called to process “DEF FN" 
$C1-SDA -- when called to process “FN® 


We are concerned with the two cases SUBFLG = 0 and SUBFLG = 
$40, with DIMFLG = 0. Since the point of this whole article is 
to clarify access to array variables, I will concentrate on the 
main entry at $DFE3 and the GETARYPT subroutine at SF7D9. 

SDFE3 sets SUBFLG = 0, while GETARYPT sets SUBFLG = $40. 


When we want to find an individual element inside an array, we 
call PTRGET at $DFE3. When we want to find the whole array, we 
call GETARYPT at S$F7D9. GETARYPT is used by the STORE and 
RECALL Applesoft statements (which you might not realize even 
exist, since their function is only of interest to cassette 
tape users!) 


The "& X" calls in the following program use PTRGET to find an 
array element. 


On the other hand, if we want to sort the array, or if we want 
to save it all on disk, or some other feat which requires 
seeing the whole thing at once, we need to call GETARYPT. Then 
we can even find out how many subscripts were used in the DIM 
statement, and what the value of each dimension is. GETARYPT 
returns with the starting address of the whole array in $9B and 
$9C (called LOWTR). 


Thé "& Y" call in the program prints out the starting address 
and length of each string of a string array. 


I hope that as you work through the descriptions and examples 
above they are of some help. 
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QuICKTRACE 


relocatable program traces and displays the actual machine operations, while it is running 
without interfering with those operations. Look at these FEATURES: 


Single-Step mode displays the last instruction, 
next instruction, registers, flags, stack contents, 
and six user-definable memory locations. 


Trace mode gives a running display of the Single- 
Step information and can be made to stop upon 
encountering any of nine user-definable 
conditions. 


Background mode permits tracing with no display 
until itis desired. Debugged routines run at near 
normal speed until one of the stopping cond- 
itions is met, which causes the program to return 
to Single-Step. 


QUICK TRACE allows changes to the stack, 
registers, stopping conditions, addresses to be 
displayed, and output destinations for all this 
Information. All this can be done in Single-Step 
mode while running. 


Two optional display formats can show a sequence 
of operations at once. Usually, the information 
is given in four lines at the bottom of the screen. 


QUICK TRACE is completely transparent to the 
program being traced. It will not interfere with 
the stack, program, or I/O. 


QUICK TRACE is relocatable to any free part of 
memory. Its output can be sent to any slot or to 
the screen. 


QUICK TRACE is completely compatible with 
programs using Applesoft and Integer BASICs, 
graphics, and DOS. (Time dependent DOS 
operations can be bypassed.) It will display the 
graphics on the screen while QUICK TRACE Is 
alive. 


QUICK TRACE is a beautiful way to show the 


incredibly complex sequence of operations that 
a computer goes through in executing a program 


Quick TRACE $50 


Is a trademark of Anthro-Digital, Inc. 
Copyright © 1981 
Written by John Rogers 


See these programs at participating Computerland and other 


fine computer stores. 


Anthro - Digital Software, Inc. 


P.O. Box 1385 Pittsfield, MA 01202 
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1560 #-------------- - - - - e e ee ee e 
1270 # GET ENTIRE ARRAY 
1580 #------ ee eee ee ee ee ee eee ee ee ee ee 
O033B- AX 59 1590 Y’ LDA #'Y 
033D- 20 CO DE 1600 JSR SYNCHR 
93 O- 20 BE DE 1610 JSR CHKCOM 
O343=- 20 DY FT 1620 . JSR GETARYPT 
_ Peewee ne ee mewn eee wee eee owen ewe 
ieho # NOW $9B,9C HAVE ADDRESS OF START OF ARRAY 
1650 : NEED TO MOVE POINTER UP TO FIRST ELEMENT 
O38 AO O04 1670 LDY #4 POINT AT LSB OF # DIMENSIONS 
O348- B1 9B 1680 LDA ($9B),Y 
eres OA 1690 ASL DOUBLE IT (IGNORE MSB, #<120) 
O34B=- 69 05 1700 ADC #5 POINT AT FIRST ELEMENT 
O34D- 85 9D 1710 STA $3? 
O34F- AO 02 1720 LDY #2 POINT AT LSB OF OFFSET 
p32 2 18 17 Re CLC COMPUTE ADDRESS JUST PAST END 
0352=- A5 9B 1740 LDA $38 OF ARRAY 
0354- ie 9B 1750 ADC 9B),Y 
Ofe8- Ad ge NRO PDA $9C Y MSB 
Tae C8 1480 INY 
035B- qe 9B 1790 ADC ($9B),Y 
035D—- 85 06 1800 . STA ARRAY. END+1 
1920 . NOW COMPUTE FULL ADDRESS OF FIRST ELEMENT 
O35F- [8 i8ho CLC 
0360- A5 QD 1850 LDA 333 
0362- 65 9B 1860 ADC $9B 
0364- 85 03 1879 STA ELEMENT.PNTR 
0366- A5 9C 1880 LDA $9C 
0368- 69 00 1890 ADC #0 
O36A—- &5 O4 1900 STA ELEMENT. PNTR+1 
DISASM (Version 2.2) $30.00 


Use D'SASM, the intelligent disassembler, to convert 6502 machine code into meaningful, symbolic source. 
It cr ates a text file which is directly compatable with DOS ToolKit, LISA and S-C (both 4.0 & Macro) 
Assent iers. Use DISASM to customize existing machine language programs to your own needs or Just to see 
how they work.  DISASH handles multiple data tables, invalid op codes and displaced object code (the 
program being disassembled doesn’t have to reside in the memory space in which it executes). DISASH lets 
you ¢ven substitute MEANINGFUL labels of your own choice (100 commonly used Monitor & Pg Zero names 
incluced in Source form to get you rolling). The address-based cross reference table option results in 
either a selective or complete cross reference (to either screen or printer). Page Zero and External 
references are listed separately tn numeric order. The cross reference table provides as much insight 
into the inner workings of machine language programs as the disassembly itself. DISASH has proven to be 
an inveluable aid for both the novice and expert alike. 


Utilities For Your S-C Assembler 4.0) 
SC.GSR: A Global Search and Replace Eliminates Tedious Manual Renaming Of Labels......sssceenee.$20.00 
SC.XREF: A Linenumber-Based Global Cross Reference Table For Complete Source Documentation......$20.00 
SC.TAB: Tabulates Source Files Into Neat, Readable Form. Encourages Fast, Free-Format Entry....$15.00 
SC UTILITY PAK: Includes All Three Utilities Described Above (You Save $10.00)... .c.scsssccecee $49.00 


All of the above programs are written entriely in machine language and are provided 
on a Standard 3.3 DOS formatted diskette. 


Avoid A $3.00 Shipping/Handling Charge By Mailing Full Payment With Order 
RAK -WARE 
41 Ralph Road 
West Grange NJ Q7052 


aeett SAY YOU SAW IT IN “APPLE ASSEMBLY LINE’! teaes 
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1910 #ennnn------ ee eee 
1920 8 NOW WALK THROUGH STRINGS 
1930 Be mm mmm ew mm ee ww ew wee w eee mew eee ewe ELEMENT 

- 1940 .1 LDY POINT AT FIRST 
O36c~ Ao Og 1950 Lot CRLEMENT.PNTR),Y GET LENGTH 
0376 Be 08 1960 STA LENGTH 
o372- C 1970 INY es 
0 {a> Bi 03 1980 LDA (ELEMENT.PNTR),Y GET ADDRE 

~ 2000 INY 
031 - 8 03 2010 LDA (ELEMENT. PNTR),Y 
O3Ttt Bo RF Fo S020 JSR PRNTAX 
o37¢- Ao BA 2030 LDA #':+$80 
BLES HO GR ro HEE bh 
0383- 48 BD FD 2080 JSR fred 
O30. as bo S0b0 oer PENGTH 
038B- 20 DA FD 2090 JSR PRHEX 
O3RB- 30 Be EP 2100 JSR CROUT 
0391- 18 2120 CLC 

- 3130 LDA # 
O38n- be 6 s ike LDA FP EMENT. PNTR 
0336 - g2 8 3150 STA ELEMENT .PNTR 
0398- A5 0 3180 LDA ELEMENT. PNTR+t 
O39C- 82 88 31 bo . STA ELEMENT. PNTR+1 
039E- A5 -03 S200 LDA ELEMENT. PNTR 
03A0- C5 0 2210 CMP ARRAY.END 
S3a2- AS OF 5220 LDA ELEMENT. PNTR+1 

A 5 

O3A4- E5 06 2230 SBC ARRAY.END+1 
OF Age 90 Cl 22h0 BCC .1 
O3A8- 60 2250 RTS 


eee 
NEW from Laumer Research 
The S-C Macro Assembler Screen Editor. 


Powerful Screen Editor for assembler files, co-resident with 
the S-C Macro Assembler allowing screen editing when you want 
it and S-C Macro Assembler editing too. Loads in the unused 
4K bank of memory in a 16K Language Card. 


Includes SYSGEN program for configuring standard 40 column 
Apple, 80 column VIDEX, or 80 column STB80 video drivers. 
Ajustable tabs, margins, horizontal and vertical scrolling, 
lines to 248 columns, and much more... 


SOURCE code included. (Lets you learn about screen editors 
and configure for other brands of 80 column boards) 


Based on a popular TI 990 editor for software developers. 
NOTE: this is not a word processor editor. Organized just for 
computer languages. If you work with assembly programs of 100 
lines or more, then a Screen Editor is a MUST! 


Requires 64K APPLE II with Language card and S-C Macro 
Assembler Language Card Version 1.0. 


Price $49.00 from LAUMER RESEARCH 
1832 SCHOOL RD. 
CARROLLTON, TX 75006 


Master Card and Visa accepted (send Name, card number and exp. 
date). Foreign orders add $3.00 shipping (US funds only). 
ft 
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Macro Can Build MACFOS.weccccccsccedecvccccccscceeMike Laumer 


The S-C Macro Assembler can do a lot of things even its designer 
never dreamed of. The macro capability may be limited compared 
to mainframe systems, but it still has a lot of power. 


A few days ago I got a bright idea that maybe you could even 
define macros inside macros, or write a macro that builds new 
macros. Lo and behold, it works! Here is what I tried: 


1000 -MA BLD 
1010 jl 

1020 )2 

1030 }3 

1040 )4 

1050 - EM 


Notice that every line from the opcode field on is defined by a 
macro parameter. I called it with lines like this: 


1060 >BLD *.MA ATOB","LDA A","STA B",".EM" 
1070 >BLD *.MA BTOA","LDA B","STA A*“,".EM” 


Here is how it all looks when you type ASM: 


1010 -MA BLD 
1020 jl 
1030 }2 
1040 )3 
1050 )4 
1060 - EM 
0800- 1070 >BLD *.MA ATOB","LDA A","STA B",".EM" 
0000> -MA ATOB 
0000> LDA A 
0000> STA B 
0000> - EM 
0800- 1080 >BLD “.MA BTOA","“LDA B","STA A*,".EM" 
0000> ~MA BTOA 
0000> LDA B 
0000> STA A 
0000> - EM 
1090 *em rrr rn nnn rrr rrr nn nnn 
0800- 1100 A ~-BS 1 
080l1- 1110 B -BS 1 
L120 Bem mmr nnn rrr rrr nnn nnn nnn 
0802- 1130 >ATOB 
0802- AD 00 08 0000> LDA A 
0805- 8D 01 08 0000> STA B 
0808- 1140 >BTOA 
0808- AD 01 08 0000> LDA B 
O80B- 8D 00 08 0000> STA A 


I don't know whether this is really useful or not.... If you 
think of a way to use it that is significant, I'd like to hear 
from you! 
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Epson MX-80 Text Screen Dump........eeceeeeeeeUlf Schlichtmann 
West Germany 


Here is a short machine language program I wrote some time ago 
when I was working on a data-base program. It permits you to 
make a hard copy of the Apple text screen. It was written for 
an Epson MX-80 with Epson's Apple II Interface kit type 2, but 
with just one slight modification it should work with any other 
printer or interface as well. 


I thought readers of AAL might have a use for this, especially 
after seeing a similar program in NIBBLE (Vol. 3 No. 3 pages 
147-148) that was over three times longer to produce exactly 
the same result! The authors of that program required 149 
bytes, and even used self-modifying code. My routine is only 
40 bytes long. 


There is one difference: in the NIBBLE program KSWL,H is 
changed so that the routine will be invoked every time 
control-P is pressed; also the ampersand vector is set up to 
re-install the KSWL,H vector whenever needed. I don't need 
these features, but even when they are added my program is 
still only about 78 bytes long (and WITHOUT any self-modifying 
code!). 


Lines 1180-1200 direct all following output to the printer, and 
is equivalent to the Applesoft statements: 


PR#1 : PRINT 


Next I store $8D (left over from MON.CROUT) as the number of 
columns for the printer, since any number greater than 40 will 
disable output to the screen. If you have a different printer 
interface card, you may need to use a different location than 
$678+SLOT. It should be stated somewhere in the printer 
interface manual. This is the slight modification I mentioned 
earlier. 


Then I use the Applesoft VTAB routine to calculate the base 
address for each line. The entry point I chose requires the 
X-register to be loaded with the number of the desired line 
(starting with zero for the top-most line). The base address 
will then be stored in BASL,H. [ Note that using AS.VTAB means 
that this program will only work if Applesoft is switched on. 
If you call this when the other memory bank is on, no telling 
what might happen! ] 


Next I let Y run from 0 to 39 to pick up all the characters in 
that particular line via indirect addressing. Each character 
is immediately fed to the printer. Upon completing a line, I 
call MON.CROUT to cause the printer to print the line. When I 
have sent all 24 lines, I then redirect output to the CRT and 
rehook DOS (lines 1340-1350). 
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Of course, there are a lot of possibilities for adding features 
to my basic screen dumper. The next version below does not 
rely on the Applesoft version of VTAB, so it can be called even 
when the Applesoft image is switched out. I also draw a border 
around the screen image: a line of dashes above and below, and 
vertical lines up down both sides. 


Instead of using $8D as a line length to turn off the screen 
output, I masked out the flag bit in $7F8+SLOT. This works in 
the Grappler and Grappler Plus interfaces, whereas the former 
method did not. (It is equivalent to printing control-I and 
letter-N. ) 


Further, I now restore the value of BASL,H at line 1490. 
Otherwise the value in CV ($25) and the address in BASL,H do 
not agree after printing the screen. 


The last enhancement is at lines 1340-1370. Here I now convert 
characters from flashing and inverse modes to normal mode, or 
to blanks in some cases. You might want to arrange for a 
different mapping here, according to your own taste. 


Even with all these enhancements, the program is still only 86 
bytes long. The first version could be loaded anywhere without 
reassembly, because there are no internal references. The 
second version does have an internal JSR, so it would have to 
be reassembled to run at other locations, or modified to be 
made run-anywhere., 


1000 Beeemnmem ween ee eww ewe wwe woe ooo e 
1010 & INSTANT HARDCOPY PROGRAM 
1020 & BY ULF SCHLICHTMA 
1030 S$ wen wneseer acess ansesoanee een woeaaes =o 
O1- 1040 SLOT .EQ 1 
28- 1050 BASL .EQ $28 
29- 1060 BASH  .EQ $29 
18- 1080 COLUMNS -EQ $678 
EA- 1090 DOS.REHOOK -EQ $03EA 
5A- 1100 AS.VTAB -EQ $F25A 
95 1110 MON.PR “EQ $FEQ5 
E- 1120 MON.CROUT .EQ $FD8E 
ED- 1130 -COUT EQ $FDED 
93- 1180 MON .SETVID .EQ $FE93___ 
1160 -OR $300 
OO- AQ 01 1170 HCOPY LDA #SLoT SET UP OUTPUT VECTOR 
O2- 20 95 FE 1180 JSR MON.PR TO POINT AT PRINTER 
05- 20 BE FD 1190 JSR MON .CROUT START A NEW LINE 
08- 8D 79 06 1200 STA COLUMNS+SLOT DISABLE SCREEN 
OB- A2 00 1210 LDX #0 START AT TOP OF SCREEN 
OD- 20 5A F2 1220. JSR AS.VTAB COMPUTE BASE ADDRESS 
10- AO 00 1230 LDY #0 START IN COLUMN 1 
12- B1 28 1240 .2 LDA (BASL),Y NEXT CHARACTER FROM THIS 
1h- 20 ED FD 1250 JSR MON.COUT LINE 
1Z- g8 1260 INY 
18- €0 28 1270 CPY #40 END OF LINE YET? 
1A- DO F6 1280 BNE .2 0 
1C- 20 BE FD 1290 JSR MON.CROUT 
1F- E8 1300 INX NEXT LINE 
20- EO 18 1310 CPX #24 END OF SCREEN YET? 
22- DO EQ 1320 BNE .1 NO 
g4- 20 93 FE 1330 JSR MON.SETVID 
27T- 4C BA 03 1340 JMP DOS.REHOOK 
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TEXT/ normally 
writes your source code as a text file with control-I in place 


of each line number. 
At S1AAD in the mother-board version, or SDAAD in the language 


Optional Patch for TEXT/ Command...........Bob Sander-Cederlof 
Several have asked how to patch the character output at the 


beginning of each line by the TEXT/ command. 


FOr 


This is control-I minus one, 


example, if you want a leading space on each line, put S$I1F in 


Put what every character you wish there, less one. 
S1AAD and/or SDAAD. 


card version, you will find $88. 
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DiviSiON...ccccccccsccecccesccveccscccseseseess BOD Sander-Cederlof 


Remembering long division in decimal can be hard enough, but 
visualizing it in binary and implementing it in 6502 assembly 
language is awesome! Study the following example, in which I 
divide an 8-bit value by a 4-bit value: 


00110 6 
1101 ) 01010101 13 ) 85 
step A: -0000 -78 
1010 7 
step B: -~0000 
10101 
step C: - 1101 
10000 
step D: - 1101 
0111 
step E: -0000 


0111 Remainder 


In the binary version, I have not made any leaps ahead like we 
do in decimal. That is, I wrote out the steps even when the 
quotient digit = 0. Now let's see a program which divides an 
8-bit value by a 4-bit value, just like the example above. 


1000 ® S.DIV.8.BY.4 
1010 #-----~----- 2 ~~~ ~~~ --------- 
1020 DIVIDE 8-BIT VALUE 
1030 & BY 4-BIT VALUE 
1040 #----~--~------------------------- 
O- 1050 DIVIDEND .EQ 0 
1- 1060 DIVISOR EQ 1 
2- 1070 QUOTIENT  .EQ 2 
1080 #--~----------------------------- 
1090 S.DIV.8.BY.4 
O- AO 05 1100 LDY #5 COUNT OFF 5 STEPS 
2- AQ 00 1110 LDA #0 
y¥- 85 02 1120 STA QUOTIENT 
g- A5 01 1130 LDA DIVISOR SEE IF DIVISOR IN RANGE 
- FO 1E 1140 BEQ .3 DIVIDE BY ZERO IS ILLEGAL 
A- OA 1150 ASL SHIFT DIVISOR TO LEFT NYBBLE 
B- OA 1160 ASL 
C- OA 1170 ASL 
D- OA 1180 ASL 
E- 85 01 1190 STA DIVISOR 
O- A5 00 1200 .1 LDA DIVIDEND COMPARE DIVIDEND TO DIVISOR 
2- 38 1210 SEC 
3- £5 01 1220 SBC DIVISOR 
5- 90 07 1230 BCC .2 DIVIDEND IS SMALLER 
7- C5 01 1240 CMP DIVISOR SEE IF STILL LARGER 
9- BO OD 1250 BCS .3 YES, OVERFLOW 
B- 38 1260 SEC SET’ QUOTIENT BIT 1 
C- 85 00 1270 STA DIVIDEND 
E- 26 02 1280 .2 ROL QUOTIENT SHIFT QUOTIENT BIT IN 
Q- 46 01 1290 LSR DIVISOR SHIFT DIVISOR OVER 
2- 8 1300 DEY : 
3- DO EB 1310 BNE .1 DO NEXT STEP 
5- 26 01 1320 ROL DIVISOR RESTORE DIVISOR 
Z- 80 1339 RTS 
- 00 1340 .3 BRK DIVIDE FAULT 
4 
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If you think this is a clumsy program, you may be right. Note 
that the loop runs five times, not four. This is because there 
are five steps, as you can see in the sample division above. 


The first thing the program does is to clear the quotient 
value. In a 4-bit machine performing 8-bit by 4-bit division 
would yield a 4-bit quotient, so the top bits must be cleared. 


The rest of the bits will be 
progresses. 


shifted in as the division 


Next the divisor is shifted up to the high nybble position, to 
align with the left nybble of the dividend. This is equivalent 
to step A in the example above. The loop running from line 
1200 through line 1310 performs the five partial divisions. 


If the divisor is zero, or if the first partial division proves 
that the quotient will not fit in four bits, the program 
branches to ".3". I put a BRK opcode there, but you would put 


an error message printer, or 


whatever. 


To run the program above, I typed: 


:$0:55 OD N 800G 0.2 


and Apple responded with: 0000- 07 OD 06 


which means the remainder is 


Dividing Bigger Values: 


7, and the quotient is 6. 


The following program will divide one two-byte value by 
another. The program assumes that both the dividend and the 
divisor are positive values between 0 and 65535. This program 


was in the original Apple II 
present in the Apple II Plus 
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monitor ROM at SFB84, but is not 
and Apple //e ROMs. 


1000 * S.DIV.16/16 
1010 Sewmecmeeemeeewe eee eee e ewww ween e 
1020 @ DIVIDE 16 BY 16 
1030 Geeweeweeeeocewone Se eee ee eeecoeane eg @ @® 
O829- 1040 ACL -EQ $50 
0051- 1020 ACH ~-EQ $51 
0052- 1060 XTNDL .EQ $52 
O02 Re 107° XTNDH .EQ 23 
0054- 1080 AUXL ~EQ $5 
0055- 1936 AUXH ~EQ $55 
0800= AO 10 1110 DIVMON LDY #16 INDEX FOR 16 BITS 
0802=- 06 50 1120 .1 ASL ACL DIVIDEND/2, CLEAR QUOTIENT BIT 
O804- 26 51 1730 ROL ACH 
08 06 - 26 52 1140 ROL XTNDL 
O808- 26 53 1150 ROL XTNDH 
O80A- 38 1160 SEC 
O80B- A5 52 1170 LDA XTNDL TRY SUBTRACTING DIVISOR 
O80D= E5 54 1180 SBC AUXL 
O80F-' AA 1190 TAX 
08 10- A5 5 1200 LDA XTNDH 
O812- E5 5 1210 SBC AUXH 
O814- Be 0 1220 BCC .2 TOO SMALL, QBIT=0 
0816- 52 1230 STX XTNDL OKAY, STORE REMAINDER 
08 18- 83 28 1240 STA XTNDH 
O81A—- E 1250 INC ACL SET QUOTIENT BIT = 1 
081C- 88 1260 .2 DEY NEXT STEP 
081D- Do E3 1270 BNE .1 
O81F- 60 1280 RTS 
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As written, this program expects the XTNDL and XTNDH bytes to 
be zero initially. If they are not, a 32-bit by 16-bit 
division is performed; however, there is no error checking for 
overflow or divide fault conditions. 


This program builds the quotient in the same memory locations 
used for the dividend. As the dividend is shifted left to 
align with the divisor (opposite but equivalent to the shifting 
done in the previous program), empty bits appear on the right 
end of the dividend register. These bit positions can be 
filled with the quotient as it develops. 


Signed Division 


With a few steps of preparation, we can divide signed values 
using an unsigned division subroutine. All we need to remember 
is the rule learned in high school: If numerator and 
denominator have the same sign, the quotient is positive; if 
not, the quotient is negative. 


1290 Sewmmmeemneeeeeceeeroee wee ewemaemwaeoee 
1390 * SIGNED DIVISION 32/16 
002F- 1353 SIGN .EQ $2F 
0820- AO 00 13%0 SIGNED . pty ON 
0822- Bb 52 1360 STY XTNDL CLEAR ACC EXTENSION 
O82h- 84 53 1 19 STY XTNDH 
08 26 - 84 OF 1380 STY SIGN 
Seats $5 BP og 1H3R RE EASE 
ORsA- A2 rf 1410 LDX #AUXL 
08 2F- 20 3F 08 1420 JSR ABS 
0832- 20 30 0 1430 JSR DIVMON 
O833- 4B BE Weg Bot StGN RESULT POSITIVE 
0839- A2 50 1455 LDX #ACL 
0836 20 89 08 1483 , JSR COMPLEMENT 
O83F- B5 01 1480 Sas LDA nk Oo LOOK AT SIGN 
tHe i OF 1500 BFL ABSRET © POSITIVE esuLT SIO 
- SIGN 
O845- 85 OF 1520 STA SIGN 
1530 COMPLEMENT 
0847 - 38 j2ko SEC 
rth 28 00 1820 SBC 0,X =0 
OBuBe 93 00 1570 STA 0,X 
O84D- 9 1580 TYA =0 
OB4E- F5 01 1 90 SBC 1,X 
0850- 95 01 1600 STA 1,X 
0852- 60 1610 ABSRET RTS 


Double Precision, Almost: 


What’ if I want to divide a full 32-bit value by a full 16-bit 
value? Both values are unsigned. The 32-bit dividend may have 
a value from 0 to 4294967295, and the divisor from 0 to 65535. 
All of the published programs I could find assume the leading 
pee of the dividend is zero, limiting the range to half of the 
above. 
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S-C Macro Cross Assemblers 


The high cost of dedicated microprocessor development systems has 
forced many technical people to look for alternate methods to 
develop programs for the various popular microprocessors. Combining 
the versatile Apple II with the S-C Macro Assembler provides a cost 
effective and powerful development system. Hobbyists and engineers 
alike will find the friendly combination the easiest and best way to 
extend their skills to other microprocessors. . 


The S-C-Macro Cross Assemblers are all identical in operation to the 
S-C Macro Assembler; only the language assembled is different. They 
are sold as upgrade packages to the S-C Macro Assembler. The S-C 
Macro Assembler, complete with 100-page reference manual, costs $80; 
once you have it, you may add as many Cross Assemblers as you wish 
at a nominal price. The following S-C Macro Cross Assembler 
versions are now available, or soon will be: 


Motorola: 6800/6801/6802 now $32.50 
6805 now $32.50 
6809 now $32.50 
68000 now $50 
Intel: 8048 now $32.50 
8051 now $32.50 
8085 soon $32.50 
Zilog: zZ-80 now $32.50 
RCA: 1802/1805 soon $32.50 
Rockwell: 65C02 now $20 
The S-C Macro Assembler family is well known for its ease-of-use and 
powerful features. Thousands of users in over 30 countries and in 
every type of industry attest to its speed, dependablility, and 
user-friendliness. There are 20 assembler directives to provide 


powerful macros, conditional assembly, and flexible data generation. 
INCLUDE and TARGET FILE capabilities allow source programs to be as 
large as your disk space. The integrated, co-resident source 
program editor provides global search and replace, move, and edit. 
The EDIT command has 15 sub-commands combined with global selection. 


Each S-C Assembler diskette contains two complete ready-to-run 
assemblers: one is for execution in the mother-board RAM; the other 
executes in a 16K RAM Card. The HELLO program offers menu selection 
to load the version you desire. The disks may be copied using any 
standard Apple disk copy program, and copies of the assembler may be 
BSAVEd on your working disks. 


S-C Software Corporation has frequently been commended for 
outstanding support: competent telephone help, a monthly (by 
subscription) newsletter, continuing enhancements, and excellent 
upgrade policies. 
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If the leading bit of the dividend is significant, a one bit 
extension is needed in the division loop. The following 
program implements a full 32/16 division. 


1900 : S.DIVIDE 32/16 
O- A2 11 1020 DIVIDE LDX #17 16<-BIT DIVISOR 
2- 18 1040 CLC START WITH NO OVERFLOW 
2: oF 40 08 102° o1 ROR OVERFLOW 
T- AD 3? 08 107° LDA DIVIDEND+1 NEXT-TO-HIGHEST BYTE 
A- ED 3F 08 1080 SBC DIVISOR+1 LEAST SIGNIFICANT BYTE 
D= A8 1090 TAY SAVE RESULT 
E- AD 3A 08 1100 LDA DIVIDEND HIGHEST BYTE 
i- ED ge 08 1110 SBC DIVISOR 
4- BO 05 1120 BCS .2 QUOTIENT BIT = 1 
§- GE ry 08 1130 Ask OVERFLOW TRUE QUOTIENT BIT 
Be bc B 08 1120 2 STY DIVIDEND+1 QUOTIENT BIT = 1 
E- 8D 3A 08 1160 STA DIVIDEND 
1- 2E 3D 08 1170 3 ROL DIVIDEND+ SHIFT QUOTIENT BIT IN 
He 2E 3C 08 1180 ROL DIVIDEND+ AND MOVE TO NEXT POSITION 
{z 2E 3% 08 1438 ROL DIVIDEND+1 
ps ef 3H 08 tpt oy BEVIDERD 
E- DO D3 1220 BNE .1 | 
O- 6E 3A 08 1230 ROR DIVIDEND SHIFT REMAINDER BACK IN 
3- 6E 3B 08 1240 ROR DIVIDEND+1 
- 6E 40 08 1220 ROR OVERFLOW SET SIGN BIT IF OVERFLOW 
9- 60 13 6 ® RTS 
Ae 1360 DIVIDEND ~-BS 4 
Aq 1220 REMAINDER .EQ DIVIDEND 
C= 1300 QUOTIENT ~-EQ DIVIDEND+2 
E- 1335 DIVISOR ~-BS 2 
0- 1320 OVERFLOW ~-BS 1 

1330 Seamnenmw nme e ww ewe nwo we ww em ewww nee 


Line 1020 sets up a 17-step loop, because the 16-bit divisor 
can be shifted to 17 different positions under the 32-bit 
Gividend. To make it easier to understand the layout of bytes 
in memory, I departed from the usual low-byte-first-format in 
this program. I assume this time that the most significant 
bytes are first: 


Dividend: $83A $83B $83C $83D 
msb eo e e e@ @ @ lsb 


Divisor: S83E $83F 
msb...1lsb 


I also have written this program to feed the quotient bits into 
the least significant end of the dividend register, as the 
dividend shifts left. The remainder will be found in the left 
two bytes of the dividend register, and the quotient in the 
right two bytes. 


Watching It All Work: 


Not being quite clairvoyant, I wanted to see what was really 
happening inside the 32/16 division program. So I added some 
tcace printouts by inserting "JSR TRACE" right after lines 1050 
and 1250. I also moved the variables into page zero, to show 
how much memory that can save. (All memory references are 
changed from 3-byte instructions to 2-byte instructions.) 


Apple Assembly Line.......March, 1983....Copyright (C) S-C SOFTWARE....Page 19 


= 
(=) = 
a = © 
= fx] e | J 
© to fms 
pa i> Min a¢ 
fxs em oO Oo & 
[= 4 ~ eA, < = 
fs] QE am] m Oo 
= =z —-HH — me 
2) ex ma >< [> ae 7) 
On no 1 Et @ & 
oOo Ze Ee aan a 
ph me 2 &e & fy = & 
oe | OnbeE ea eH HO = - 
> G AHS OF © Re <= 
bt Es mopDma e oO >> 
i | IaAe 1Hn HO & Aw 7“ St ‘ 
i ‘ |. = ONDE 2D 2 OP me oOo a 
§ | ie Be @=MY wo ff) oO m4 8 i 
i ‘ | i oe Et oe ie & F&F eS HS e Oni ‘ 
i | ima SeMQWIm Sk) & tk fe, ( A 
[<2 | | tig —aero oP oO HA = Be | 4 
ot = | 1wokR {21 (2) <tr Pa D> Te = «fe 8 | 
aio wo I imYN Zit WH GW Wad 7 wi | 
ot Ae NO il 6 | | 
| +# Ij i | ( 
A PAA | t | i] 
ZS) O@mS2eezQl i i i 
Ee 1 Dae i | = =_— MWe = A ~ ] 
Ht BAA IAGA 1 +o + +++ + } pd e i 
= | He imDoOm i = At A = AAARAAA AAs t = e RO _ | 
OTP rimniAQRaA |! oO Ze 2m CO Bae Ze zZzzOti oO = = wo (@) 4 
WW OOHHO I fi fale I pa | WO WO 4 BAW iJ: J © © am [a 4 a 
m— 1BAQ OGM 1 WHS I ij QMN AM & aAanaAARnAaAaA AAkwtI fea © Oaga. © ! 
“| | ( Seo RAY ASS Be RH RARRRe MeeHmiom me © eH « ° | 
Niqgoocgoo 1 v7C00 IF Wat PrP PS WD PPP PPP -Pilimt Om taa2rez = A 
NIDDM IGE I—- Pe HH BHHNPMHHAAHH RH IOP RK ROOMOHO TNO 1 
fecrererf eo cote OF AAR AA Oo -AAAaAAaAA "AAS TRO REE AL a > | 
fo) 4 ‘ | A 
Q 1 | £2 CRO tO det O10 te dd i ie] KS OM SMH OMY I 
oe | fo <4 i IA AONEAMAOA MOND HPHODOCOWMZO0O I AHA ANAANANBZAONE I 
= | SAW Poo § JOR HN INS INO MQNMNSS Sees) IMAI IA A HOM I 
HIOZABZzAeIONZ?® 1 § | 
A lAMszoO Immo if | A 
*1(mAHHNH 1OMRO 1A (wa i 
CQ imrPidchbri i « «© ¢ te eS) ] 
thesor iza2zzie i ] 
IPHaIPFH TOOO IH =- NM ‘a -_ AN | 
Z2eOOGOAS SZEeA ° e ° Ss e ° a 


elelololelolololololololeleolololololelolofolelolelolelololelololololololefoloflolojeojlololololeololojolololeo) 
0 MN MNT LO M00 DO OA MT LOO B&D DN EON OEP LAW BOO DIO ON MET LOO BOO OND & NE MET LAW ECO NO HN 
9D 0O000 0000 OF © SH HSER MRE N NAINA QIAN QMMMMM MIM MIMI ar at at aT at TST ST ST ET LOLOL 


C2 0 SF CSE CL CF CECE CLS KTPO FES SC OS CE CF CL CE CSE CP CF CE SFE SCE FE 


a =) ACA =) 
Oo <7) fe. © Fes fx 


—-— CFA NO eMsesOTNVNECAMNNE&| OEFNO, COONKABAOCAnerst DBO 
- ON CO BDOOCOGCGOCO9O9SO AOCOO DMoognMoatwWoan O80 


NOW OTD ALND NN OWS INOW W0W ZGOWOOD  ATONOOANG HODOOOO 
SMO UMS fe) EE EI MONDMDNNNNORWOUO <tNer Neteti QNMNOO Nw 


| prerererrev cbevrerrrevuspevraends perenne pretreteetet 
WtQ ONMNO DMA ONTWO ZORIONTIOMAM Alar MND tO A NUUWOdatQ 
COCOO DAM DOQCGCQOQOCOSCO CCFC KFC KECK KNUNNNANA NANMMNMMMM Mea sat staat 
AAQ Wd COC C000 GB 000060 COCO COCO COCO CO GOGO ss COO COO OOO ODO 
cmH he eo loleleloleleolelofoflololofoeloleleloleleolelololoeme @lojolofolololosolololojeloleo! 


If 


A line is printed before 


the quotient is too large to fit 
each step, and at the end to show the final results. 


the overflow extension bit. 
TRACE next prints the four hex-digits of the 
00 OA 


"1" on the last line, 


in 16-bits. 


Now here are the printouts for a few values of dividend and 
:00 OO FF FF 


quotient, and lastly the remainder. 
Givisor. 


The trace program prints first 


this is 


SFFFF / SOA = $1999 rem 5 
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#1:00 00 19 99 00 OA #1:FF F8 00 00 FF FF 


#800G *#800G 

0 00 00 19 99 O FF F8 OO OO 
0 00 00 33 35 1 FF FO 00 00 
0 00 00 \ 1 FF E2 00 01 
0 00 00 cc C8 1 FF C6 00 03 
0 00 01 99 90 1 FF 8E 0O 07 
0 00 o? 2? 20 1 FF 1E OO OF 
0 00 O 40 1 FE 3E 00 1F 
0 00 0c cc 80 1 E¢ fe 00 7E 
0 00 05 99 01 1F E 00 7F 
0 00 OB 24 02 1 F1 FE OO FF 
0 00 02 64 05 1 E3 FE 01 FF 
0 00 O04 CB OA 1 C7 FE 03 FF 
0 00 09 90 14 1 8F FE O7 FF 
0 00 13 20 28 1 #1F FE OF FF 
000 12 40 51 0 3F FE 1F FF 
0 00 10 80 A3 0 fF FC eh FE 
0 00 OD 01 AT O FF F8 7F FC 
0 00 03 O02 8F O FF F8 FF F8 
$1999 / SOA = $28F rem 3 SFFF80000 / SFFFF = SFFF8 rem SFFF8 
®1:FF FE 00 01 FF FF #1:FF FF FF FF FF FF 
#800G #800G 

O FF FE OO O1 O FF FF FF FF 
1 FF FC 00 O02 00 01 FF FF 
1 FF FA 00 05 0 00 o3 FF FE 
1 FF F6 00 OB 0 00 Of FF FC 
1 FF EE 00 17 0 00 OF FF F8 
1 FF DE OO 2F 0 00 1F FF FO 
1 FF BE OO 5F 0 00 3F FF EO 
1 FF 7E OO BF 0 00 7F FF CO 
1 FE FE 01 7F 0 00 FF FF 80 
1 FD FE O2 FF 0 01 FF FF OO 
1 FB FE O5 FF 0 03 FF FE 00 
1 Et FE OB FF 0 07 FF FC OO 
1 EF FE 17 FF 0 OF FF F8 00 
1 DF FE 2F FF 0 1F FF FO 00 
1 BF FE 5F FF 0 3f FF EO 00 
1 7F FE BF FF 0 TF FF CO OO 
O FF FF 7F FF O FF FF 80 00 
2 00 OO FF FF 100 00 OO O1 
‘FFFEOOO] / SFFFF = SFFFF SFFFFFFFF / SFFFF = $0001 overflow 


Short Note About Prime BenchmarksS.....cccccccccceceeFrank Hirai 
West Lebanon, NH 


About your faster primes articles (Vol 2 #1, Vol 2 #5, and Vol 
3 #2).... If you go back to Jim Gilbreath's original BYTE 
article you will find that the times he lists are for TEN 
iterations. As such they are not unreasonable for Integer 
BASIC -and Applesoft. When comparing times for your 6502 
assembly language versions, remember to multiply by ten! 


Even so, 1.83 seconds for 10 iterations using Anthony 
Brightwell's program in the Apple compares quite well against 
1.12 seconds for 10 iterations in an 8 MHz Motorola 68000. 


[ ...and wait till we try it on a Number Nine 6502 card at 3.6 
MHz! Or with a 65C02! ] 
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Patching Applesoft for Garbage-Collection Indicator 
eoccccceee Lee Meador 


I wanted to know when (how often and for how long) Applesoft 
was doing garbage:collection. The following patch will cause 
an inverse "!" to placed in the lower right hand corner of the 
screen whenever garbage collection takes place. 


It is a little tricky to patch Applesoft, since it is in ROM! 

The first step is to copy the ROMs into the language card RAM 

space (any slot 0 RAM card will do). If you have an old Apple 
II with Integer BASIC on the mother board, you can do this by 

booting the DOS 3.3 Master. Otherwise, here are the steps: 


JCALL-151 
*C081 C081 
*D000<D000.FFFFM 


Next you need to place some code inside the Applesoft image in 
the RAM card. JI chose to place the new code on top of the 

HFIND subroutine at $F5CB. (The code from S$F5CB through SF5FF 
is never used by Applesoft.) Here is the routine I put there: 


PATCH PHA 
LDA #$21 INVERSE °!" 
STA $7F7 BOTTOM RIGHT CORNER 
PLA 
JSR GARBAG 
PHA 
LDA #SA0 BLANK BACK ON SCREEN CORNER 
STA $7F7 
PLA 
RTS 


You also need to patch the existing "JSR GARBAG" inside 
Applesoft to jump to this new code. Here are the patches in 
hex: 


*C083 C083 write enable RAM card 
*E47B:CB F5 

*F5CB:48 A9 21 8D F7 

*F5D0:07 68 20 84 E4 48 AS AO 

*F5E0:8D F7 07 68 60 

*C080 write protect RAM card 
*control-C 

]JRUN your program 


Here is a little Applesoft program which generates a lot of 
garbage strings so you can see the patch in action: 


100 DIM A$(100) 

110 FOR I = 1 TO 100 

120 FOR J = 1 TO 200 : AS(I) = AS$(I) + “B" NEXT 
130 PRINT I, : NEXT 


Try running the program with different HIMEM values, to see the 
different effects. 
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S-C Macro Assembler, Version 1.1 


A new version of the S-C Macro Assembler is just about ready, 
and it's going to be great! 


I have added many new features, corrected a few problems, and 
created a special version to take advantage of the extra 
features of the new Apple //e computer. Here's a summary of 
the new items, so far: 


New or Extended Features: 


1. 80-column support! The release disk will now include 
versions for the Videx, STB, and maybe other 80-column 
cards. 


2. The .HS directive now allows optional “.* characters before 
and after each pair of hex digits. (e.g., .HS 
»-12..34..AB) This makes for easier counting of bytes, and 
allows you to put meaningful comments above or below the 
~HS lines. 


3. .DO--.FIN can now be nested to 63 levels, rather than just 
8 levels. 


4. Comment lines may now begin with either °** or “%;", 


5. Added .SE directive, which allows re-definable symbols. 
Now a macro can tell how many times it has been called. 


6. Binary constants are now supported. The syntax is 
*%$11000011101" (up to 16 bits). 


7. ASCII literals with the high-bit set are now allowed, and 
are signified with the quotation mark: LDA #"°X generates 
A9 D8. Note that a trailing "-mark is optional, just as is 
a trailing apostrophe with previous ASCII literals. 


8. The TEXT/ <filename> command now outputs the current TAB 
character (default ctrl-I). It used to put out control-I 
no matter what the current TAB character was. 


9. Now allow USER parameters to override memory protection. 
$101C-101D contains lower bound, and $101E-101F contains 
the upper bound of an area the user wants to UN-PROTECT. 
(The parameter for the starting page of the symbol table 
has moved from $101D to $1021, or $D01D to $pD021.) 


10. Added .PH and .EP directives, to start and end a phase. 
With these directives you can assemble a section of code 
that is intended to be moved and run somewhere else, 
without having to create a separate Target File. 

11. Added .DUMMY and .ED to start and end a dummy section. 

12. The TAB character may now be set to any character, 
including non-control characters, if you so desire. 
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.3 to Known Problems: 


1. .TI now properly spaces at top of each page, and at 
beginning of symbol table. 


2. .AS and .AT now assemble lower case properly. 


3. Changed the way the relative branches are assembled, so 
that "*" is equal to the location of the opcode byte. It 
used to be the location offset byte, which was 
non-standard. 


4. Now pass two errors emit the proper number of object bytes, 
so that false range errors are not indicated. 


Features added in support of Apple //e: 


1. The Apple //e version allows you to change between 80- and 
40- column screens at will, using PR#3 to go to 80-columns, 
or ESC-“Q to go to 40-columns. 


2. In both normal input and edit modes, the DELETE key acts 
like a backspace key. It is interpreted the same as a left 
arrow (“H). 


I haven't made up my mind yet about a new price, how we'll 
handle the upgrades, or how much the charge will be. We'll 
have the final details in next month's AAL. 


RAM/ROM PROGRAM DEVELOPMENT BOARD $35.00 
Plugs into any Apple slot. Holds one user-supplied 2Kx8 memory chip. Use a 6116 type RAN chip for 
program development or just extra memory. Plugin a programmed 2716 EPROM to Keep your favorite routines 
‘on-line’. Maps into $Cn00-SCaFF and $C800-SCFFF memory space. lastructions & circuit diagras provided. 


The ’MIRROR’ : Firmware for Apple-Cat $29.00 
Communications ROM plugs directly into Novation’s modem card. Three basic modes: Dwab Terminal, Remote 
Console & Programmable Modem. Added features include: Printer buffer, Pulse or Tone dialing, true 
dialtone detection, audible ring detect and ring-back option. Directly supports many 80-columa boards 
(even while printing) and Apple’s Comm card commands. (Apple-Cat Hardware differences prevent 100% 
interchangability with Comm card.) Includes Hayes-to-AppleCat register equivalances for software 
conversion. Telephone Software Connection (213-516-9430) has several programs which support the ‘MIRROR’. 


The “PERFORMER’: Smarts For Your Printer $49.00 
Get the most from your smart printer by adding intelligence to your ‘dumb’ interface card. The PERFORMER 


Board plugs into any Apple slot for immediate access (no programs to find and load). Easily select 
printer fonts and many other features via a user-friendly menu. Replaces manual printer set-up. No need 
to remember ESC commands. Also provides TEXT and GRAPHICS screen dumps. Compatible with Apple, Tymac, 
Epson, Microtek and similar ‘dumb’ Centronics type parallel I/F boards. Specify printer: EPSON MX80 
W/Graftrax-80, EPSON MX100, EPSON MXS0/MX100 W/Graftrax Plus, NEC 8023A, C.Itoh 8510 (ProWriter), OKI 
Nicroline 82A/83A W/OKIGRAPH. ‘(OKI Bonus: The PERFORMER Generates ENHANCED and DOUBLE STRIKE Foats) 


Avoid A $3.00 Shipping/Handl ing Charge By Mailing Full Payment With Order 
RAK -WA RE 
41 Ralph Road 
West Orange NJ 07052 


aaate SAY YOU SAW IT IN ‘APPLE ASSEMBLY LINE’! sehes 
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More on the //e€..cccccccvcccscvccccccvecceseee BOD Sander-Cederlof 


4 


1. Page Zero Usage: 


Last month I erroneously reported that the new //e monitor used 
l: sation $08 in page zero. It does not. 


However, I was correct when I said the monitor now uses 
location $1F. It is possible that your programs conflict with 
this, and it is possible that some commercial programs conflict 
with this. For example, standard SWEET-16 uses S1F for half of 
its register 15, which is its PC-register. 


If you disassemble the //e monitor at $FC9C (CLREOL, Clear to 
end of line), you will find a STY $1F a few lines down. This 
is the only visible place where S$l1F is used. However, there 

are some invisible ones lurking in the shadows of ROM. 


2. The Shadow ROM: 


By shadows, I mean the alternate ROM space which overlays the 
I/O slot ROMs. By switching the SLOTCX soft switch, the 
monitor turns on this shadow ROM; the rest of the code 
necessary in the new monitor is then accessible starting at 
$Cl100. At SFBB4 the new monitor saves the current status, 
disables interrupts and saves the status of the SLOTCX 
softswitch, and switches to the shadow ROM. Then it JMP's to 
$C100 with the Y-register indexing one of 9 or 10 functions. 


The “shadow ROM” (my terminology, not Apple's) covers the 
address space from $C100-C2FF and S$C400-C7FF. The space from 
$C300-SC3FF is also there, but it is always turned on in my 
//e. It holds the startup code for the 80-column card, and 
some memory management subroutines. 


The space from $C100-C2FF contains the extra code for handling 
monitor functions in the //e. S$C400-C7FF holds the self-test 
program that you initiate by pressing control-solid-apple-reset 
or control-both-apples-reset. (With both Apples, you get sound 
with the self-test.) 


There is more ROM you switch in and out with another soft 
switch at $C800-CFFE. This holds the 80-column firmware. 


3. Version ID Byte: 


Location $FBB3 in the monitor identifies which type of Apple 
you have: 


FBB3- .38 ... Old Apple II 
FBB3- EA ... Apple II Plus (Autostart Monitor) 
FBB3- 06 ... Apple //e 


This byte is now a permanent feature; Apple will continue to 
use it as an ID byte in the future. Art Schumer and Clif 
Howard published an extensive Version ID program in the 
February 1983 issue of Call APPLE. They listed two versions, 
one for use from DOS and one for use from Pascal. 
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Review: "The Visible Computer: 6502".....Bob Sander-Cederlof 


For five years I have talked about it. “Someone should write a 
program that illustrates 6502 code being executed, using hi-res 
animation." 


Software Masters never heard me, but they did it anyway! "The 
Visible Computer: 6502" is an animated simulation of our 
favorite microprocessor. You see inside the chip and watch the 
registers change, micro-step by micro-step. You even see the 
"hidden" registers: DL (data latch), DB (data buffer), IR 
(instruction register), and AD (address). You see HOW the 
instructions are executed. 


I was amazed at the quality of the documentation. You get 140 
pages of easy-to-follow, fun-to-read tutorial and reference 
text. The manual assumes only that you have an Apple, and are 
moderately familiar with Applesoft. It doesn't try to teach 
everything there is to know about machine language, but it does 
Geliver the fundamental concepts. 


Thirty demonstration programs are included on the disk, which 
progressively lead you through the instruction set. You begin 
with a two-byte register load, and work up to hi-res graphics 


and tone generation. 


in detail in the manual. Of course, you can also trace your 
own programs or programs inside the Apple ROMs. 


You can also use the simulator as a debugging tool, if your 
program will fit in the user memory area. The simulator 
provides a 1024-byte user memory, plus a simulated page zero 


and page one. 


You can also use $300-$3CF, if you wish. One 


unusual tool for debugging purposes is a full 4-function 
calculator mode, which works in binary, decimal, or 


hexadecimal. 


Here is a list of the commands available at the normal level: 


BASE select binary, decimal, or hexadecimal 
BLOAD load a program to be simulated 

BOOT boot disk in slot 6, drive l 

CALC turn on 4-function calculator 

EDIT short-cut entry of hex code into memory 
ERASE Clear screen (so graphics can be seen) 

L disassemble five lines of code 

LC select memory for displayed in left column 
PRINTER turn on/off printer in slot one 

RC select memory for display in right column 
RESTORE restore normal screen display 

STEP select one of four simulation modes: 
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0 -- fastest, no display update until BRK 

1 -- Full display, simulate until BRK 

2 -~ Full display, simulate one instruction 
with no pause between steps 

3 -- Full display, simulate one instruction, 
pausing before each step 


All of the example programs are explained 


WINDOW select one of three display options: 

MEM: window shows 16 memory cells 

OPEN: window is blank 

CLOSE: window shows “hidden" 6502 registers 
<addr><value> store value at memory address 
<reg><value> store value in register 


A "MASTER" mode can be turned on, which enables more features 
and commands for experienced users. In the master mode you can 
use the REAL zero page, you can modify any location in memory 
(even the ones that are dangerous!), you can BLOAD and BSAVE on 
standard DOS 3.3 disks, and run previously checked subroutines 
at full 6502 speed. 


I know that a lot of you are looking for some help in 
understanding assembly language; "The Visible Computer” may be 
just the help you need. Let your own Apple teach you! Some of 
you are teaching 6502 classes; "The Visible Computer" is the 
most helpful teaching tools I have ever seen. 


I was gratified to learn that the author is an old customer! 
He used an older version of the S-C Assembler for coding the 
longer examples, and the assembly language portions of the 
Simulator. We even got a free plug on page 108! 


The normal retail price of "The Visible Computer" is $49.95, 
our price will be an even $45 to readers of Apple Assembly 
Line. 


Message 
Window 
6502 
Microprocessor Memory 
he : Status Line 
Disassembly 
Window Error Line 
7 ee Next Instruction Line 
TvC 
Prompt Cursor Visible Computer Display 
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